lpSolve in R